3.344 \(\int \frac {\cosh (c+d x)}{(a+b \sinh ^2(c+d x))^3} \, dx\)
Optimal. Leaf size=96 \[ \frac {3 \tan ^{-1}\left (\frac {\sqrt {b} \sinh (c+d x)}{\sqrt {a}}\right )}{8 a^{5/2} \sqrt {b} d}+\frac {3 \sinh (c+d x)}{8 a^2 d \left (a+b \sinh ^2(c+d x)\right )}+\frac {\sinh (c+d x)}{4 a d \left (a+b \sinh ^2(c+d x)\right )^2} \]
[Out]
1/4*sinh(d*x+c)/a/d/(a+b*sinh(d*x+c)^2)^2+3/8*sinh(d*x+c)/a^2/d/(a+b*sinh(d*x+c)^2)+3/8*arctan(sinh(d*x+c)*b^(
1/2)/a^(1/2))/a^(5/2)/d/b^(1/2)
________________________________________________________________________________________
Rubi [A] time = 0.06, antiderivative size = 96, normalized size of antiderivative = 1.00,
number of steps used = 4, number of rules used = 3, integrand size = 21, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.143, Rules used =
{3190, 199, 205} \[ \frac {3 \sinh (c+d x)}{8 a^2 d \left (a+b \sinh ^2(c+d x)\right )}+\frac {3 \tan ^{-1}\left (\frac {\sqrt {b} \sinh (c+d x)}{\sqrt {a}}\right )}{8 a^{5/2} \sqrt {b} d}+\frac {\sinh (c+d x)}{4 a d \left (a+b \sinh ^2(c+d x)\right )^2} \]
Antiderivative was successfully verified.
[In]
Int[Cosh[c + d*x]/(a + b*Sinh[c + d*x]^2)^3,x]
[Out]
(3*ArcTan[(Sqrt[b]*Sinh[c + d*x])/Sqrt[a]])/(8*a^(5/2)*Sqrt[b]*d) + Sinh[c + d*x]/(4*a*d*(a + b*Sinh[c + d*x]^
2)^2) + (3*Sinh[c + d*x])/(8*a^2*d*(a + b*Sinh[c + d*x]^2))
Rule 199
Int[((a_) + (b_.)*(x_)^(n_))^(p_), x_Symbol] :> -Simp[(x*(a + b*x^n)^(p + 1))/(a*n*(p + 1)), x] + Dist[(n*(p +
1) + 1)/(a*n*(p + 1)), Int[(a + b*x^n)^(p + 1), x], x] /; FreeQ[{a, b}, x] && IGtQ[n, 0] && LtQ[p, -1] && (In
tegerQ[2*p] || (n == 2 && IntegerQ[4*p]) || (n == 2 && IntegerQ[3*p]) || Denominator[p + 1/n] < Denominator[p]
)
Rule 205
Int[((a_) + (b_.)*(x_)^2)^(-1), x_Symbol] :> Simp[(Rt[a/b, 2]*ArcTan[x/Rt[a/b, 2]])/a, x] /; FreeQ[{a, b}, x]
&& PosQ[a/b]
Rule 3190
Int[cos[(e_.) + (f_.)*(x_)]^(m_.)*((a_) + (b_.)*sin[(e_.) + (f_.)*(x_)]^2)^(p_.), x_Symbol] :> With[{ff = Free
Factors[Sin[e + f*x], x]}, Dist[ff/f, Subst[Int[(1 - ff^2*x^2)^((m - 1)/2)*(a + b*ff^2*x^2)^p, x], x, Sin[e +
f*x]/ff], x]] /; FreeQ[{a, b, e, f, p}, x] && IntegerQ[(m - 1)/2]
Rubi steps
\begin {align*} \int \frac {\cosh (c+d x)}{\left (a+b \sinh ^2(c+d x)\right )^3} \, dx &=\frac {\operatorname {Subst}\left (\int \frac {1}{\left (a+b x^2\right )^3} \, dx,x,\sinh (c+d x)\right )}{d}\\ &=\frac {\sinh (c+d x)}{4 a d \left (a+b \sinh ^2(c+d x)\right )^2}+\frac {3 \operatorname {Subst}\left (\int \frac {1}{\left (a+b x^2\right )^2} \, dx,x,\sinh (c+d x)\right )}{4 a d}\\ &=\frac {\sinh (c+d x)}{4 a d \left (a+b \sinh ^2(c+d x)\right )^2}+\frac {3 \sinh (c+d x)}{8 a^2 d \left (a+b \sinh ^2(c+d x)\right )}+\frac {3 \operatorname {Subst}\left (\int \frac {1}{a+b x^2} \, dx,x,\sinh (c+d x)\right )}{8 a^2 d}\\ &=\frac {3 \tan ^{-1}\left (\frac {\sqrt {b} \sinh (c+d x)}{\sqrt {a}}\right )}{8 a^{5/2} \sqrt {b} d}+\frac {\sinh (c+d x)}{4 a d \left (a+b \sinh ^2(c+d x)\right )^2}+\frac {3 \sinh (c+d x)}{8 a^2 d \left (a+b \sinh ^2(c+d x)\right )}\\ \end {align*}
________________________________________________________________________________________
Mathematica [A] time = 0.18, size = 79, normalized size = 0.82 \[ \frac {\frac {\sqrt {a} \sinh (c+d x) \left (5 a+3 b \sinh ^2(c+d x)\right )}{\left (a+b \sinh ^2(c+d x)\right )^2}+\frac {3 \tan ^{-1}\left (\frac {\sqrt {b} \sinh (c+d x)}{\sqrt {a}}\right )}{\sqrt {b}}}{8 a^{5/2} d} \]
Antiderivative was successfully verified.
[In]
Integrate[Cosh[c + d*x]/(a + b*Sinh[c + d*x]^2)^3,x]
[Out]
((3*ArcTan[(Sqrt[b]*Sinh[c + d*x])/Sqrt[a]])/Sqrt[b] + (Sqrt[a]*Sinh[c + d*x]*(5*a + 3*b*Sinh[c + d*x]^2))/(a
+ b*Sinh[c + d*x]^2)^2)/(8*a^(5/2)*d)
________________________________________________________________________________________
fricas [B] time = 0.56, size = 3934, normalized size = 40.98 \[ \text {result too large to display} \]
Verification of antiderivative is not currently implemented for this CAS.
[In]
integrate(cosh(d*x+c)/(a+b*sinh(d*x+c)^2)^3,x, algorithm="fricas")
[Out]
[1/16*(12*a*b^2*cosh(d*x + c)^7 + 84*a*b^2*cosh(d*x + c)*sinh(d*x + c)^6 + 12*a*b^2*sinh(d*x + c)^7 + 4*(20*a^
2*b - 9*a*b^2)*cosh(d*x + c)^5 + 4*(63*a*b^2*cosh(d*x + c)^2 + 20*a^2*b - 9*a*b^2)*sinh(d*x + c)^5 + 20*(21*a*
b^2*cosh(d*x + c)^3 + (20*a^2*b - 9*a*b^2)*cosh(d*x + c))*sinh(d*x + c)^4 - 12*a*b^2*cosh(d*x + c) - 4*(20*a^2
*b - 9*a*b^2)*cosh(d*x + c)^3 + 4*(105*a*b^2*cosh(d*x + c)^4 - 20*a^2*b + 9*a*b^2 + 10*(20*a^2*b - 9*a*b^2)*co
sh(d*x + c)^2)*sinh(d*x + c)^3 + 4*(63*a*b^2*cosh(d*x + c)^5 + 10*(20*a^2*b - 9*a*b^2)*cosh(d*x + c)^3 - 3*(20
*a^2*b - 9*a*b^2)*cosh(d*x + c))*sinh(d*x + c)^2 - 3*(b^2*cosh(d*x + c)^8 + 8*b^2*cosh(d*x + c)*sinh(d*x + c)^
7 + b^2*sinh(d*x + c)^8 + 4*(2*a*b - b^2)*cosh(d*x + c)^6 + 4*(7*b^2*cosh(d*x + c)^2 + 2*a*b - b^2)*sinh(d*x +
c)^6 + 8*(7*b^2*cosh(d*x + c)^3 + 3*(2*a*b - b^2)*cosh(d*x + c))*sinh(d*x + c)^5 + 2*(8*a^2 - 8*a*b + 3*b^2)*
cosh(d*x + c)^4 + 2*(35*b^2*cosh(d*x + c)^4 + 30*(2*a*b - b^2)*cosh(d*x + c)^2 + 8*a^2 - 8*a*b + 3*b^2)*sinh(d
*x + c)^4 + 8*(7*b^2*cosh(d*x + c)^5 + 10*(2*a*b - b^2)*cosh(d*x + c)^3 + (8*a^2 - 8*a*b + 3*b^2)*cosh(d*x + c
))*sinh(d*x + c)^3 + 4*(2*a*b - b^2)*cosh(d*x + c)^2 + 4*(7*b^2*cosh(d*x + c)^6 + 15*(2*a*b - b^2)*cosh(d*x +
c)^4 + 3*(8*a^2 - 8*a*b + 3*b^2)*cosh(d*x + c)^2 + 2*a*b - b^2)*sinh(d*x + c)^2 + b^2 + 8*(b^2*cosh(d*x + c)^7
+ 3*(2*a*b - b^2)*cosh(d*x + c)^5 + (8*a^2 - 8*a*b + 3*b^2)*cosh(d*x + c)^3 + (2*a*b - b^2)*cosh(d*x + c))*si
nh(d*x + c))*sqrt(-a*b)*log((b*cosh(d*x + c)^4 + 4*b*cosh(d*x + c)*sinh(d*x + c)^3 + b*sinh(d*x + c)^4 - 2*(2*
a + b)*cosh(d*x + c)^2 + 2*(3*b*cosh(d*x + c)^2 - 2*a - b)*sinh(d*x + c)^2 + 4*(b*cosh(d*x + c)^3 - (2*a + b)*
cosh(d*x + c))*sinh(d*x + c) - 4*(cosh(d*x + c)^3 + 3*cosh(d*x + c)*sinh(d*x + c)^2 + sinh(d*x + c)^3 + (3*cos
h(d*x + c)^2 - 1)*sinh(d*x + c) - cosh(d*x + c))*sqrt(-a*b) + b)/(b*cosh(d*x + c)^4 + 4*b*cosh(d*x + c)*sinh(d
*x + c)^3 + b*sinh(d*x + c)^4 + 2*(2*a - b)*cosh(d*x + c)^2 + 2*(3*b*cosh(d*x + c)^2 + 2*a - b)*sinh(d*x + c)^
2 + 4*(b*cosh(d*x + c)^3 + (2*a - b)*cosh(d*x + c))*sinh(d*x + c) + b)) + 4*(21*a*b^2*cosh(d*x + c)^6 + 5*(20*
a^2*b - 9*a*b^2)*cosh(d*x + c)^4 - 3*a*b^2 - 3*(20*a^2*b - 9*a*b^2)*cosh(d*x + c)^2)*sinh(d*x + c))/(a^3*b^3*d
*cosh(d*x + c)^8 + 8*a^3*b^3*d*cosh(d*x + c)*sinh(d*x + c)^7 + a^3*b^3*d*sinh(d*x + c)^8 + 4*(2*a^4*b^2 - a^3*
b^3)*d*cosh(d*x + c)^6 + a^3*b^3*d + 4*(7*a^3*b^3*d*cosh(d*x + c)^2 + (2*a^4*b^2 - a^3*b^3)*d)*sinh(d*x + c)^6
+ 2*(8*a^5*b - 8*a^4*b^2 + 3*a^3*b^3)*d*cosh(d*x + c)^4 + 8*(7*a^3*b^3*d*cosh(d*x + c)^3 + 3*(2*a^4*b^2 - a^3
*b^3)*d*cosh(d*x + c))*sinh(d*x + c)^5 + 2*(35*a^3*b^3*d*cosh(d*x + c)^4 + 30*(2*a^4*b^2 - a^3*b^3)*d*cosh(d*x
+ c)^2 + (8*a^5*b - 8*a^4*b^2 + 3*a^3*b^3)*d)*sinh(d*x + c)^4 + 4*(2*a^4*b^2 - a^3*b^3)*d*cosh(d*x + c)^2 + 8
*(7*a^3*b^3*d*cosh(d*x + c)^5 + 10*(2*a^4*b^2 - a^3*b^3)*d*cosh(d*x + c)^3 + (8*a^5*b - 8*a^4*b^2 + 3*a^3*b^3)
*d*cosh(d*x + c))*sinh(d*x + c)^3 + 4*(7*a^3*b^3*d*cosh(d*x + c)^6 + 15*(2*a^4*b^2 - a^3*b^3)*d*cosh(d*x + c)^
4 + 3*(8*a^5*b - 8*a^4*b^2 + 3*a^3*b^3)*d*cosh(d*x + c)^2 + (2*a^4*b^2 - a^3*b^3)*d)*sinh(d*x + c)^2 + 8*(a^3*
b^3*d*cosh(d*x + c)^7 + 3*(2*a^4*b^2 - a^3*b^3)*d*cosh(d*x + c)^5 + (8*a^5*b - 8*a^4*b^2 + 3*a^3*b^3)*d*cosh(d
*x + c)^3 + (2*a^4*b^2 - a^3*b^3)*d*cosh(d*x + c))*sinh(d*x + c)), 1/8*(6*a*b^2*cosh(d*x + c)^7 + 42*a*b^2*cos
h(d*x + c)*sinh(d*x + c)^6 + 6*a*b^2*sinh(d*x + c)^7 + 2*(20*a^2*b - 9*a*b^2)*cosh(d*x + c)^5 + 2*(63*a*b^2*co
sh(d*x + c)^2 + 20*a^2*b - 9*a*b^2)*sinh(d*x + c)^5 + 10*(21*a*b^2*cosh(d*x + c)^3 + (20*a^2*b - 9*a*b^2)*cosh
(d*x + c))*sinh(d*x + c)^4 - 6*a*b^2*cosh(d*x + c) - 2*(20*a^2*b - 9*a*b^2)*cosh(d*x + c)^3 + 2*(105*a*b^2*cos
h(d*x + c)^4 - 20*a^2*b + 9*a*b^2 + 10*(20*a^2*b - 9*a*b^2)*cosh(d*x + c)^2)*sinh(d*x + c)^3 + 2*(63*a*b^2*cos
h(d*x + c)^5 + 10*(20*a^2*b - 9*a*b^2)*cosh(d*x + c)^3 - 3*(20*a^2*b - 9*a*b^2)*cosh(d*x + c))*sinh(d*x + c)^2
+ 3*(b^2*cosh(d*x + c)^8 + 8*b^2*cosh(d*x + c)*sinh(d*x + c)^7 + b^2*sinh(d*x + c)^8 + 4*(2*a*b - b^2)*cosh(d
*x + c)^6 + 4*(7*b^2*cosh(d*x + c)^2 + 2*a*b - b^2)*sinh(d*x + c)^6 + 8*(7*b^2*cosh(d*x + c)^3 + 3*(2*a*b - b^
2)*cosh(d*x + c))*sinh(d*x + c)^5 + 2*(8*a^2 - 8*a*b + 3*b^2)*cosh(d*x + c)^4 + 2*(35*b^2*cosh(d*x + c)^4 + 30
*(2*a*b - b^2)*cosh(d*x + c)^2 + 8*a^2 - 8*a*b + 3*b^2)*sinh(d*x + c)^4 + 8*(7*b^2*cosh(d*x + c)^5 + 10*(2*a*b
- b^2)*cosh(d*x + c)^3 + (8*a^2 - 8*a*b + 3*b^2)*cosh(d*x + c))*sinh(d*x + c)^3 + 4*(2*a*b - b^2)*cosh(d*x +
c)^2 + 4*(7*b^2*cosh(d*x + c)^6 + 15*(2*a*b - b^2)*cosh(d*x + c)^4 + 3*(8*a^2 - 8*a*b + 3*b^2)*cosh(d*x + c)^2
+ 2*a*b - b^2)*sinh(d*x + c)^2 + b^2 + 8*(b^2*cosh(d*x + c)^7 + 3*(2*a*b - b^2)*cosh(d*x + c)^5 + (8*a^2 - 8*
a*b + 3*b^2)*cosh(d*x + c)^3 + (2*a*b - b^2)*cosh(d*x + c))*sinh(d*x + c))*sqrt(a*b)*arctan(1/2*sqrt(a*b)*(cos
h(d*x + c) + sinh(d*x + c))/a) + 3*(b^2*cosh(d*x + c)^8 + 8*b^2*cosh(d*x + c)*sinh(d*x + c)^7 + b^2*sinh(d*x +
c)^8 + 4*(2*a*b - b^2)*cosh(d*x + c)^6 + 4*(7*b^2*cosh(d*x + c)^2 + 2*a*b - b^2)*sinh(d*x + c)^6 + 8*(7*b^2*c
osh(d*x + c)^3 + 3*(2*a*b - b^2)*cosh(d*x + c))*sinh(d*x + c)^5 + 2*(8*a^2 - 8*a*b + 3*b^2)*cosh(d*x + c)^4 +
2*(35*b^2*cosh(d*x + c)^4 + 30*(2*a*b - b^2)*cosh(d*x + c)^2 + 8*a^2 - 8*a*b + 3*b^2)*sinh(d*x + c)^4 + 8*(7*b
^2*cosh(d*x + c)^5 + 10*(2*a*b - b^2)*cosh(d*x + c)^3 + (8*a^2 - 8*a*b + 3*b^2)*cosh(d*x + c))*sinh(d*x + c)^3
+ 4*(2*a*b - b^2)*cosh(d*x + c)^2 + 4*(7*b^2*cosh(d*x + c)^6 + 15*(2*a*b - b^2)*cosh(d*x + c)^4 + 3*(8*a^2 -
8*a*b + 3*b^2)*cosh(d*x + c)^2 + 2*a*b - b^2)*sinh(d*x + c)^2 + b^2 + 8*(b^2*cosh(d*x + c)^7 + 3*(2*a*b - b^2)
*cosh(d*x + c)^5 + (8*a^2 - 8*a*b + 3*b^2)*cosh(d*x + c)^3 + (2*a*b - b^2)*cosh(d*x + c))*sinh(d*x + c))*sqrt(
a*b)*arctan(1/2*(b*cosh(d*x + c)^3 + 3*b*cosh(d*x + c)*sinh(d*x + c)^2 + b*sinh(d*x + c)^3 + (4*a - b)*cosh(d*
x + c) + (3*b*cosh(d*x + c)^2 + 4*a - b)*sinh(d*x + c))*sqrt(a*b)/(a*b)) + 2*(21*a*b^2*cosh(d*x + c)^6 + 5*(20
*a^2*b - 9*a*b^2)*cosh(d*x + c)^4 - 3*a*b^2 - 3*(20*a^2*b - 9*a*b^2)*cosh(d*x + c)^2)*sinh(d*x + c))/(a^3*b^3*
d*cosh(d*x + c)^8 + 8*a^3*b^3*d*cosh(d*x + c)*sinh(d*x + c)^7 + a^3*b^3*d*sinh(d*x + c)^8 + 4*(2*a^4*b^2 - a^3
*b^3)*d*cosh(d*x + c)^6 + a^3*b^3*d + 4*(7*a^3*b^3*d*cosh(d*x + c)^2 + (2*a^4*b^2 - a^3*b^3)*d)*sinh(d*x + c)^
6 + 2*(8*a^5*b - 8*a^4*b^2 + 3*a^3*b^3)*d*cosh(d*x + c)^4 + 8*(7*a^3*b^3*d*cosh(d*x + c)^3 + 3*(2*a^4*b^2 - a^
3*b^3)*d*cosh(d*x + c))*sinh(d*x + c)^5 + 2*(35*a^3*b^3*d*cosh(d*x + c)^4 + 30*(2*a^4*b^2 - a^3*b^3)*d*cosh(d*
x + c)^2 + (8*a^5*b - 8*a^4*b^2 + 3*a^3*b^3)*d)*sinh(d*x + c)^4 + 4*(2*a^4*b^2 - a^3*b^3)*d*cosh(d*x + c)^2 +
8*(7*a^3*b^3*d*cosh(d*x + c)^5 + 10*(2*a^4*b^2 - a^3*b^3)*d*cosh(d*x + c)^3 + (8*a^5*b - 8*a^4*b^2 + 3*a^3*b^3
)*d*cosh(d*x + c))*sinh(d*x + c)^3 + 4*(7*a^3*b^3*d*cosh(d*x + c)^6 + 15*(2*a^4*b^2 - a^3*b^3)*d*cosh(d*x + c)
^4 + 3*(8*a^5*b - 8*a^4*b^2 + 3*a^3*b^3)*d*cosh(d*x + c)^2 + (2*a^4*b^2 - a^3*b^3)*d)*sinh(d*x + c)^2 + 8*(a^3
*b^3*d*cosh(d*x + c)^7 + 3*(2*a^4*b^2 - a^3*b^3)*d*cosh(d*x + c)^5 + (8*a^5*b - 8*a^4*b^2 + 3*a^3*b^3)*d*cosh(
d*x + c)^3 + (2*a^4*b^2 - a^3*b^3)*d*cosh(d*x + c))*sinh(d*x + c))]
________________________________________________________________________________________
giac [F(-2)] time = 0.00, size = 0, normalized size = 0.00 \[ \text {Exception raised: TypeError} \]
Verification of antiderivative is not currently implemented for this CAS.
[In]
integrate(cosh(d*x+c)/(a+b*sinh(d*x+c)^2)^3,x, algorithm="giac")
[Out]
Exception raised: TypeError >> An error occurred running a Giac command:INPUT:sage2:=int(sage0,x):;OUTPUT:Warn
ing, need to choose a branch for the root of a polynomial with parameters. This might be wrong.The choice was
done assuming [a,b]=[-85,-18]Warning, need to choose a branch for the root of a polynomial with parameters. Th
is might be wrong.The choice was done assuming [a,b]=[33,-80]Warning, need to choose a branch for the root of
a polynomial with parameters. This might be wrong.The choice was done assuming [a,b]=[-98,-18]Warning, need to
choose a branch for the root of a polynomial with parameters. This might be wrong.The choice was done assumin
g [a,b]=[-57,-10]Warning, need to choose a branch for the root of a polynomial with parameters. This might be
wrong.The choice was done assuming [a,b]=[-57,-3]Warning, need to choose a branch for the root of a polynomial
with parameters. This might be wrong.The choice was done assuming [a,b]=[-53,60]Warning, need to choose a bra
nch for the root of a polynomial with parameters. This might be wrong.The choice was done assuming [a,b]=[80,-
1]schur row 3 -6.9034e-07Warning, need to choose a branch for the root of a polynomial with parameters. This m
ight be wrong.The choice was done assuming [a,b]=[-51,-3]Warning, need to choose a branch for the root of a po
lynomial with parameters. This might be wrong.The choice was done assuming [a,b]=[-64,-74]Warning, need to cho
ose a branch for the root of a polynomial with parameters. This might be wrong.The choice was done assuming [a
,b]=[-56,-37]Undef/Unsigned Inf encountered in limitEvaluation time: 2.01Limit: Max order reached or unable to
make series expansion Error: Bad Argument Value
________________________________________________________________________________________
maple [A] time = 0.03, size = 85, normalized size = 0.89 \[ \frac {\sinh \left (d x +c \right )}{4 a d \left (a +b \left (\sinh ^{2}\left (d x +c \right )\right )\right )^{2}}+\frac {3 \sinh \left (d x +c \right )}{8 a^{2} d \left (a +b \left (\sinh ^{2}\left (d x +c \right )\right )\right )}+\frac {3 \arctan \left (\frac {\sinh \left (d x +c \right ) b}{\sqrt {a b}}\right )}{8 d \,a^{2} \sqrt {a b}} \]
Verification of antiderivative is not currently implemented for this CAS.
[In]
int(cosh(d*x+c)/(a+b*sinh(d*x+c)^2)^3,x)
[Out]
1/4*sinh(d*x+c)/a/d/(a+b*sinh(d*x+c)^2)^2+3/8*sinh(d*x+c)/a^2/d/(a+b*sinh(d*x+c)^2)+3/8/d/a^2/(a*b)^(1/2)*arct
an(sinh(d*x+c)*b/(a*b)^(1/2))
________________________________________________________________________________________
maxima [F] time = 0.00, size = 0, normalized size = 0.00 \[ \frac {{\left (20 \, a e^{\left (5 \, c\right )} - 9 \, b e^{\left (5 \, c\right )}\right )} e^{\left (5 \, d x\right )} - {\left (20 \, a e^{\left (3 \, c\right )} - 9 \, b e^{\left (3 \, c\right )}\right )} e^{\left (3 \, d x\right )} + 3 \, b e^{\left (7 \, d x + 7 \, c\right )} - 3 \, b e^{\left (d x + c\right )}}{4 \, {\left (a^{2} b^{2} d e^{\left (8 \, d x + 8 \, c\right )} + a^{2} b^{2} d + 4 \, {\left (2 \, a^{3} b d e^{\left (6 \, c\right )} - a^{2} b^{2} d e^{\left (6 \, c\right )}\right )} e^{\left (6 \, d x\right )} + 2 \, {\left (8 \, a^{4} d e^{\left (4 \, c\right )} - 8 \, a^{3} b d e^{\left (4 \, c\right )} + 3 \, a^{2} b^{2} d e^{\left (4 \, c\right )}\right )} e^{\left (4 \, d x\right )} + 4 \, {\left (2 \, a^{3} b d e^{\left (2 \, c\right )} - a^{2} b^{2} d e^{\left (2 \, c\right )}\right )} e^{\left (2 \, d x\right )}\right )}} + \frac {1}{2} \, \int \frac {3 \, {\left (e^{\left (3 \, d x + 3 \, c\right )} + e^{\left (d x + c\right )}\right )}}{2 \, {\left (a^{2} b e^{\left (4 \, d x + 4 \, c\right )} + a^{2} b + 2 \, {\left (2 \, a^{3} e^{\left (2 \, c\right )} - a^{2} b e^{\left (2 \, c\right )}\right )} e^{\left (2 \, d x\right )}\right )}}\,{d x} \]
Verification of antiderivative is not currently implemented for this CAS.
[In]
integrate(cosh(d*x+c)/(a+b*sinh(d*x+c)^2)^3,x, algorithm="maxima")
[Out]
1/4*((20*a*e^(5*c) - 9*b*e^(5*c))*e^(5*d*x) - (20*a*e^(3*c) - 9*b*e^(3*c))*e^(3*d*x) + 3*b*e^(7*d*x + 7*c) - 3
*b*e^(d*x + c))/(a^2*b^2*d*e^(8*d*x + 8*c) + a^2*b^2*d + 4*(2*a^3*b*d*e^(6*c) - a^2*b^2*d*e^(6*c))*e^(6*d*x) +
2*(8*a^4*d*e^(4*c) - 8*a^3*b*d*e^(4*c) + 3*a^2*b^2*d*e^(4*c))*e^(4*d*x) + 4*(2*a^3*b*d*e^(2*c) - a^2*b^2*d*e^
(2*c))*e^(2*d*x)) + 1/2*integrate(3/2*(e^(3*d*x + 3*c) + e^(d*x + c))/(a^2*b*e^(4*d*x + 4*c) + a^2*b + 2*(2*a^
3*e^(2*c) - a^2*b*e^(2*c))*e^(2*d*x)), x)
________________________________________________________________________________________
mupad [B] time = 0.94, size = 87, normalized size = 0.91 \[ \frac {\frac {5\,\mathrm {sinh}\left (c+d\,x\right )}{8\,a}+\frac {3\,b\,{\mathrm {sinh}\left (c+d\,x\right )}^3}{8\,a^2}}{d\,a^2+2\,d\,a\,b\,{\mathrm {sinh}\left (c+d\,x\right )}^2+d\,b^2\,{\mathrm {sinh}\left (c+d\,x\right )}^4}+\frac {3\,\mathrm {atan}\left (\frac {\sqrt {b}\,\mathrm {sinh}\left (c+d\,x\right )}{\sqrt {a}}\right )}{8\,a^{5/2}\,\sqrt {b}\,d} \]
Verification of antiderivative is not currently implemented for this CAS.
[In]
int(cosh(c + d*x)/(a + b*sinh(c + d*x)^2)^3,x)
[Out]
((5*sinh(c + d*x))/(8*a) + (3*b*sinh(c + d*x)^3)/(8*a^2))/(a^2*d + b^2*d*sinh(c + d*x)^4 + 2*a*b*d*sinh(c + d*
x)^2) + (3*atan((b^(1/2)*sinh(c + d*x))/a^(1/2)))/(8*a^(5/2)*b^(1/2)*d)
________________________________________________________________________________________
sympy [A] time = 89.11, size = 915, normalized size = 9.53 \[ \begin {cases} \frac {\tilde {\infty } x \cosh {\relax (c )}}{\sinh ^{6}{\relax (c )}} & \text {for}\: a = 0 \wedge b = 0 \wedge d = 0 \\\frac {\sinh {\left (c + d x \right )}}{a^{3} d} & \text {for}\: b = 0 \\- \frac {1}{5 b^{3} d \sinh ^{5}{\left (c + d x \right )}} & \text {for}\: a = 0 \\\frac {x \cosh {\relax (c )}}{\left (a + b \sinh ^{2}{\relax (c )}\right )^{3}} & \text {for}\: d = 0 \\\frac {10 i a^{\frac {3}{2}} b \sqrt {\frac {1}{b}} \sinh {\left (c + d x \right )}}{16 i a^{\frac {9}{2}} b d \sqrt {\frac {1}{b}} + 32 i a^{\frac {7}{2}} b^{2} d \sqrt {\frac {1}{b}} \sinh ^{2}{\left (c + d x \right )} + 16 i a^{\frac {5}{2}} b^{3} d \sqrt {\frac {1}{b}} \sinh ^{4}{\left (c + d x \right )}} + \frac {6 i \sqrt {a} b^{2} \sqrt {\frac {1}{b}} \sinh ^{3}{\left (c + d x \right )}}{16 i a^{\frac {9}{2}} b d \sqrt {\frac {1}{b}} + 32 i a^{\frac {7}{2}} b^{2} d \sqrt {\frac {1}{b}} \sinh ^{2}{\left (c + d x \right )} + 16 i a^{\frac {5}{2}} b^{3} d \sqrt {\frac {1}{b}} \sinh ^{4}{\left (c + d x \right )}} + \frac {3 a^{2} \log {\left (- i \sqrt {a} \sqrt {\frac {1}{b}} + \sinh {\left (c + d x \right )} \right )}}{16 i a^{\frac {9}{2}} b d \sqrt {\frac {1}{b}} + 32 i a^{\frac {7}{2}} b^{2} d \sqrt {\frac {1}{b}} \sinh ^{2}{\left (c + d x \right )} + 16 i a^{\frac {5}{2}} b^{3} d \sqrt {\frac {1}{b}} \sinh ^{4}{\left (c + d x \right )}} - \frac {3 a^{2} \log {\left (i \sqrt {a} \sqrt {\frac {1}{b}} + \sinh {\left (c + d x \right )} \right )}}{16 i a^{\frac {9}{2}} b d \sqrt {\frac {1}{b}} + 32 i a^{\frac {7}{2}} b^{2} d \sqrt {\frac {1}{b}} \sinh ^{2}{\left (c + d x \right )} + 16 i a^{\frac {5}{2}} b^{3} d \sqrt {\frac {1}{b}} \sinh ^{4}{\left (c + d x \right )}} + \frac {6 a b \log {\left (- i \sqrt {a} \sqrt {\frac {1}{b}} + \sinh {\left (c + d x \right )} \right )} \sinh ^{2}{\left (c + d x \right )}}{16 i a^{\frac {9}{2}} b d \sqrt {\frac {1}{b}} + 32 i a^{\frac {7}{2}} b^{2} d \sqrt {\frac {1}{b}} \sinh ^{2}{\left (c + d x \right )} + 16 i a^{\frac {5}{2}} b^{3} d \sqrt {\frac {1}{b}} \sinh ^{4}{\left (c + d x \right )}} - \frac {6 a b \log {\left (i \sqrt {a} \sqrt {\frac {1}{b}} + \sinh {\left (c + d x \right )} \right )} \sinh ^{2}{\left (c + d x \right )}}{16 i a^{\frac {9}{2}} b d \sqrt {\frac {1}{b}} + 32 i a^{\frac {7}{2}} b^{2} d \sqrt {\frac {1}{b}} \sinh ^{2}{\left (c + d x \right )} + 16 i a^{\frac {5}{2}} b^{3} d \sqrt {\frac {1}{b}} \sinh ^{4}{\left (c + d x \right )}} + \frac {3 b^{2} \log {\left (- i \sqrt {a} \sqrt {\frac {1}{b}} + \sinh {\left (c + d x \right )} \right )} \sinh ^{4}{\left (c + d x \right )}}{16 i a^{\frac {9}{2}} b d \sqrt {\frac {1}{b}} + 32 i a^{\frac {7}{2}} b^{2} d \sqrt {\frac {1}{b}} \sinh ^{2}{\left (c + d x \right )} + 16 i a^{\frac {5}{2}} b^{3} d \sqrt {\frac {1}{b}} \sinh ^{4}{\left (c + d x \right )}} - \frac {3 b^{2} \log {\left (i \sqrt {a} \sqrt {\frac {1}{b}} + \sinh {\left (c + d x \right )} \right )} \sinh ^{4}{\left (c + d x \right )}}{16 i a^{\frac {9}{2}} b d \sqrt {\frac {1}{b}} + 32 i a^{\frac {7}{2}} b^{2} d \sqrt {\frac {1}{b}} \sinh ^{2}{\left (c + d x \right )} + 16 i a^{\frac {5}{2}} b^{3} d \sqrt {\frac {1}{b}} \sinh ^{4}{\left (c + d x \right )}} & \text {otherwise} \end {cases} \]
Verification of antiderivative is not currently implemented for this CAS.
[In]
integrate(cosh(d*x+c)/(a+b*sinh(d*x+c)**2)**3,x)
[Out]
Piecewise((zoo*x*cosh(c)/sinh(c)**6, Eq(a, 0) & Eq(b, 0) & Eq(d, 0)), (sinh(c + d*x)/(a**3*d), Eq(b, 0)), (-1/
(5*b**3*d*sinh(c + d*x)**5), Eq(a, 0)), (x*cosh(c)/(a + b*sinh(c)**2)**3, Eq(d, 0)), (10*I*a**(3/2)*b*sqrt(1/b
)*sinh(c + d*x)/(16*I*a**(9/2)*b*d*sqrt(1/b) + 32*I*a**(7/2)*b**2*d*sqrt(1/b)*sinh(c + d*x)**2 + 16*I*a**(5/2)
*b**3*d*sqrt(1/b)*sinh(c + d*x)**4) + 6*I*sqrt(a)*b**2*sqrt(1/b)*sinh(c + d*x)**3/(16*I*a**(9/2)*b*d*sqrt(1/b)
+ 32*I*a**(7/2)*b**2*d*sqrt(1/b)*sinh(c + d*x)**2 + 16*I*a**(5/2)*b**3*d*sqrt(1/b)*sinh(c + d*x)**4) + 3*a**2
*log(-I*sqrt(a)*sqrt(1/b) + sinh(c + d*x))/(16*I*a**(9/2)*b*d*sqrt(1/b) + 32*I*a**(7/2)*b**2*d*sqrt(1/b)*sinh(
c + d*x)**2 + 16*I*a**(5/2)*b**3*d*sqrt(1/b)*sinh(c + d*x)**4) - 3*a**2*log(I*sqrt(a)*sqrt(1/b) + sinh(c + d*x
))/(16*I*a**(9/2)*b*d*sqrt(1/b) + 32*I*a**(7/2)*b**2*d*sqrt(1/b)*sinh(c + d*x)**2 + 16*I*a**(5/2)*b**3*d*sqrt(
1/b)*sinh(c + d*x)**4) + 6*a*b*log(-I*sqrt(a)*sqrt(1/b) + sinh(c + d*x))*sinh(c + d*x)**2/(16*I*a**(9/2)*b*d*s
qrt(1/b) + 32*I*a**(7/2)*b**2*d*sqrt(1/b)*sinh(c + d*x)**2 + 16*I*a**(5/2)*b**3*d*sqrt(1/b)*sinh(c + d*x)**4)
- 6*a*b*log(I*sqrt(a)*sqrt(1/b) + sinh(c + d*x))*sinh(c + d*x)**2/(16*I*a**(9/2)*b*d*sqrt(1/b) + 32*I*a**(7/2)
*b**2*d*sqrt(1/b)*sinh(c + d*x)**2 + 16*I*a**(5/2)*b**3*d*sqrt(1/b)*sinh(c + d*x)**4) + 3*b**2*log(-I*sqrt(a)*
sqrt(1/b) + sinh(c + d*x))*sinh(c + d*x)**4/(16*I*a**(9/2)*b*d*sqrt(1/b) + 32*I*a**(7/2)*b**2*d*sqrt(1/b)*sinh
(c + d*x)**2 + 16*I*a**(5/2)*b**3*d*sqrt(1/b)*sinh(c + d*x)**4) - 3*b**2*log(I*sqrt(a)*sqrt(1/b) + sinh(c + d*
x))*sinh(c + d*x)**4/(16*I*a**(9/2)*b*d*sqrt(1/b) + 32*I*a**(7/2)*b**2*d*sqrt(1/b)*sinh(c + d*x)**2 + 16*I*a**
(5/2)*b**3*d*sqrt(1/b)*sinh(c + d*x)**4), True))
________________________________________________________________________________________